home *** CD-ROM | disk | FTP | other *** search
- /*
- * Copyright (c) 1991 Stanford University
- * Copyright (c) 1991 Silicon Graphics, Inc.
- *
- * Permission to use, copy, modify, distribute, and sell this software and
- * its documentation for any purpose is hereby granted without fee, provided
- * that (i) the above copyright notices and this permission notice appear in
- * all copies of the software and related documentation, and (ii) the names of
- * Stanford and Silicon Graphics may not be used in any advertising or
- * publicity relating to the software without the specific, prior written
- * permission of Stanford and Silicon Graphics.
- *
- * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
- * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
- * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
- *
- * IN NO EVENT SHALL STANFORD OR SILICON GRAPHICS BE LIABLE FOR
- * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
- * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
- * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
- * OF THIS SOFTWARE.
- */
-
- /*
- * Support routines for lists.
- */
-
- #include "list.h"
- #include <stdio.h>
- #include <stdlib.h>
-
- static long ListImpl_best_new_sizes[] = {
- 48, 112, 240, 496, 1008, 2032, 4080, 8176,
- 16368, 32752, 65520, 131056, 262128, 524272, 1048560,
- 2097136, 4194288, 8388592, 16777200, 33554416, 67108848
- };
-
- long ListImpl_best_new_count(long count, unsigned long size) {
- for (int i = 0; i < sizeof(ListImpl_best_new_sizes)/sizeof(long); i++) {
- if (count * size < ListImpl_best_new_sizes[i]) {
- return ListImpl_best_new_sizes[i] / size;
- }
- }
- return count;
- }
-
- void ListImpl_range_error(long i) {
- fprintf(stderr, "internal error: list index %d out of range\n", i);
- abort();
- }
-